object FormPreview: TFormPreview Left = 274 Top = 290 Width = 783 Height = 667 BorderIcons = [biSystemMenu, biMaximize] Caption = 'Aper'#231'u avant impression' Color = clBtnFace Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] KeyPreview = True OldCreateOrder = False Position = poDefault WindowState = wsMaximized OnClose = FormClose OnKeyDown = FormKeyDown OnResize = ComboZoomClick OnShow = FormShow PixelsPerInch = 96 TextHeight = 14 object PanelBarre: TPanel Left = 0 Top = 0 Width = 775 Height = 27 Align = alTop BevelOuter = bvNone TabOrder = 0 object Label1: TLabel Left = 123 Top = 7 Width = 27 Height = 14 Caption = 'Zoom' end object Label2: TLabel Left = 3 Top = 7 Width = 24 Height = 14 Caption = 'Page' end object LabelPage: TLabel Left = 78 Top = 7 Width = 15 Height = 14 Caption = 'de ' end object Bevel2: TBevel Left = 210 Top = 2 Width = 3 Height = 22 Shape = bsLeftLine end object ComboZoom: TComboBox Left = 153 Top = 3 Width = 55 Height = 22 Cursor = crHandPoint Hint = 'Agrandissement' Style = csDropDownList ItemHeight = 14 ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = ComboZoomClick Items.Strings = ( '400 %' '375 %' '350 %' '325 %' '300 %' '275 %' '225 %' '200 %' '175 %' '150 %' '125 %' '120 %' '115 %' '110 %' '100 %' '95 %' '90 %' '85 %' '80 %' '75 %' '70 %' '65 %' '60 %' '55 %' '50 %' '45 %' '40 %' '35 %' '30 %' '25 %' '20 %' '15 %' '10 %' '5 %') end object ComboPage: TComboBox Left = 33 Top = 3 Width = 43 Height = 22 Cursor = crHandPoint Hint = 'Changer de page' Style = csDropDownList ItemHeight = 14 ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = ComboPageClick end object ButtonPrintAll: TButton Left = 216 Top = 3 Width = 88 Height = 22 Hint = 'Imprimer toutes les pages' Caption = 'Imprimer &tout' TabOrder = 2 OnClick = SpeedBPrintAllClick end object ButtonPrintPage: TButton Left = 309 Top = 3 Width = 88 Height = 22 Hint = 'Imprimer la page en cours seulement' Caption = 'Imprimer la &page' TabOrder = 3 OnClick = SpeedBPrintOnClick end object ButtonConfigure: TButton Left = 402 Top = 3 Width = 88 Height = 22 Hint = 'Configurer l'#39'imprimante' Caption = '&Configurer' TabOrder = 4 OnClick = SpeedBConfigureClick end object ButtonClose: TButton Left = 495 Top = 3 Width = 88 Height = 22 Hint = 'Fermer la page aper'#231'u' Cancel = True Caption = '&Fermer' ModalResult = 2 TabOrder = 5 end end object ScrollBoxPreview: TScrollBox Left = 0 Top = 27 Width = 775 Height = 606 HorzScrollBar.Tracking = True VertScrollBar.Tracking = True Align = alClient BorderStyle = bsNone Color = clGray Ctl3D = False ParentColor = False ParentCtl3D = False PopupMenu = PopupMenuPreview TabOrder = 1 object PaintPreview: TPaintBox Left = 183 Top = 3 Width = 364 Height = 373 PopupMenu = PopupMenuPreview OnPaint = PaintPreviewPaint end end object PopupMenuPreview: TPopupMenu Left = 648 object Imprimertouteslespages1: TMenuItem Caption = 'Imprimer toutes les pages' OnClick = SpeedBPrintAllClick end object Imprimerlapageencours1: TMenuItem Caption = 'Imprimer la page en cours' OnClick = SpeedBPrintOnClick end object N1: TMenuItem Caption = '-' end object Ajusterlesmargesdelapage1: TMenuItem Caption = 'Ajuster les marges de la page' OnClick = SpeedBMargeClick end object N2: TMenuItem Caption = '-' end object Configurerlimprimante1: TMenuItem Caption = 'Configurer l'#39'imprimante' OnClick = SpeedBConfigureClick end object N3: TMenuItem Caption = '-' end object Fermerlapageapperu1: TMenuItem Caption = 'Fermer la page apper'#231'u' OnClick = ButtonCloseClick end end end